home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
PCQ
/
Examples
/
ChopTest.p
< prev
next >
Wrap
Text File
|
1989-03-31
|
492b
|
27 lines
Program Chop_Test;
{ This tests ChopCL, which is located in ChopCL.p
Read that file for more details }
type
argvtype = array [1..10] of string;
procedure ChopCL(var a : argvtype; var m : Integer);
forward;
var
argv : argvtype;
argc : Integer;
index : Integer;
begin
argc := 10;
ChopCL(argv, argc);
if argc = 0 then
writeln('There were no arguments.')
else
for index := 1 to argc do
writeln('Argument ', index, ' is : ', argv[index]);
end.